100 REM--------------------------------
110 REM KLANGEFFEKTE MIT
120 REM DYNAMISCHER STEUERUNG
125 REM DURCH STIMME 3
130 REM--------------------------------
140 S=54272
150 READ A,D,SU,R,C,P,F,G,N,M
160 POKE S+5 ,16*A +D
170 POKE S+6 ,16*SU+R
180 POKE S+2 ,P AND 255
190 POKE S+3 ,P/256
200 POKE S+23,0     :REM FR
210 POKE S+24,128+15:REM ML (S3 AUS)
220 READ A3,D3,S3,R3,C3,P3,F3,Q
230 HI=INT(F3/256):LO=F3-256*HI
240 POKE S+14,LO
250 POKE S+15,HI
260 POKE S+16,P3 AND 255
270 POKE S+17,P3/256
280 POKE S+19,16*A3+D3
290 POKE S+20,16*S3+R3
300 Q=S+Q
310 F=F/256
320 GET A$:IF A$="" THEN 320
330 FOR I=1 TO M
340 : POKE S+4 ,C OR 1
350 : POKE S+18,C3 OR 1
360 : FOR J=1 TO N
370 :   POKE S+1,F*(1+PEEK(Q)/G)
380 : NEXT J
390 : POKE S+4 ,C
400 : POKE S+18,C3
410 NEXT I
420 GOTO 320
500 REM--------------------------------
510 REM PARAMETER STIMME 1
520 DATA 0 , 8, 0, 8:REM A D SU R
530 DATA 32         :REM CONTROL-BYTE C
540 DATA 2048       :REM PULSWEITE P
550 DATA 40000      :REM FREQUENZ F
560 DATA 500        :REM FAKTOR G
570 DATA 8          :REM ANZAHL N
580 DATA 10         :REM ANZAHL M
600 REM PARAMETER STIMME 3
610 DATA  0, 8, 0, 0:REM A3 D3 S3 R3
620 DATA 16         :REM CONTROL C3
630 DATA 2048       :REM PULSWEITE P3
640 DATA 10         :REM FREQUENZ F3
650 DATA 28         :REM MOD.-QUELLE Q